home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / unique1a / frmmain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-22  |  6.8 KB  |  200 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    ClientHeight    =   2865
  6.    ClientLeft      =   15
  7.    ClientTop       =   15
  8.    ClientWidth     =   4680
  9.    ControlBox      =   0   'False
  10.    Icon            =   "frmMain.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2865
  15.    ScaleWidth      =   4680
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton Command1 
  18.       Caption         =   "exit"
  19.       Height          =   255
  20.       Left            =   3480
  21.       TabIndex        =   8
  22.       Top             =   480
  23.       Width           =   975
  24.    End
  25.    Begin VB.Frame Frame1 
  26.       BackColor       =   &H006C6C6C&
  27.       BorderStyle     =   0  'None
  28.       Height          =   1095
  29.       Left            =   720
  30.       TabIndex        =   1
  31.       Top             =   1200
  32.       Visible         =   0   'False
  33.       Width           =   1095
  34.       Begin VB.Label Label4 
  35.          BackColor       =   &H006C6C6C&
  36.          Caption         =   "SeeD"
  37.          BeginProperty Font 
  38.             Name            =   "MS Sans Serif"
  39.             Size            =   12
  40.             Charset         =   0
  41.             Weight          =   400
  42.             Underline       =   0   'False
  43.             Italic          =   0   'False
  44.             Strikethrough   =   0   'False
  45.          EndProperty
  46.          ForeColor       =   &H004242FF&
  47.          Height          =   375
  48.          Left            =   240
  49.          TabIndex        =   4
  50.          Top             =   720
  51.          Width           =   615
  52.       End
  53.       Begin VB.Label Label3 
  54.          BackColor       =   &H006C6C6C&
  55.          Caption         =   "By"
  56.          BeginProperty Font 
  57.             Name            =   "MS Sans Serif"
  58.             Size            =   12
  59.             Charset         =   0
  60.             Weight          =   400
  61.             Underline       =   0   'False
  62.             Italic          =   0   'False
  63.             Strikethrough   =   0   'False
  64.          EndProperty
  65.          ForeColor       =   &H0000FFFF&
  66.          Height          =   375
  67.          Left            =   360
  68.          TabIndex        =   3
  69.          Top             =   360
  70.          Width           =   375
  71.       End
  72.       Begin VB.Label Label2 
  73.          BackColor       =   &H006C6C6C&
  74.          Caption         =   "Created "
  75.          BeginProperty Font 
  76.             Name            =   "MS Sans Serif"
  77.             Size            =   12
  78.             Charset         =   0
  79.             Weight          =   400
  80.             Underline       =   0   'False
  81.             Italic          =   0   'False
  82.             Strikethrough   =   0   'False
  83.          EndProperty
  84.          ForeColor       =   &H0000FFFF&
  85.          Height          =   375
  86.          Left            =   120
  87.          TabIndex        =   2
  88.          Top             =   0
  89.          Width           =   855
  90.       End
  91.    End
  92.    Begin VB.Label Label7 
  93.       BackStyle       =   0  'Transparent
  94.       Caption         =   "CooL MenU VersioN 0.0 BY SeeD"
  95.       BeginProperty Font 
  96.          Name            =   "MS Sans Serif"
  97.          Size            =   13.5
  98.          Charset         =   0
  99.          Weight          =   400
  100.          Underline       =   0   'False
  101.          Italic          =   0   'False
  102.          Strikethrough   =   0   'False
  103.       EndProperty
  104.       ForeColor       =   &H0080FFFF&
  105.       Height          =   375
  106.       Left            =   240
  107.       TabIndex        =   7
  108.       Top             =   0
  109.       Width           =   4695
  110.    End
  111.    Begin VB.Label Label6 
  112.       BackStyle       =   0  'Transparent
  113.       Caption         =   "MAIL ME AT:  Seedaed@cs.com"
  114.       ForeColor       =   &H8000000E&
  115.       Height          =   255
  116.       Left            =   2280
  117.       TabIndex        =   6
  118.       Top             =   2640
  119.       Width           =   2415
  120.    End
  121.    Begin VB.Label Label5 
  122.       BackStyle       =   0  'Transparent
  123.       Caption         =   $"frmMain.frx":030A
  124.       ForeColor       =   &H8000000E&
  125.       Height          =   1335
  126.       Left            =   2520
  127.       TabIndex        =   5
  128.       Top             =   960
  129.       Width           =   1935
  130.    End
  131.    Begin VB.Label Label1 
  132.       BackStyle       =   0  'Transparent
  133.       Caption         =   "File"
  134.       BeginProperty Font 
  135.          Name            =   "Comic Sans MS"
  136.          Size            =   14.25
  137.          Charset         =   0
  138.          Weight          =   700
  139.          Underline       =   0   'False
  140.          Italic          =   0   'False
  141.          Strikethrough   =   0   'False
  142.       EndProperty
  143.       ForeColor       =   &H00FFFFFF&
  144.       Height          =   375
  145.       Left            =   600
  146.       TabIndex        =   0
  147.       Top             =   960
  148.       Width           =   495
  149.    End
  150. Attribute VB_Name = "frmMain"
  151. Attribute VB_GlobalNameSpace = False
  152. Attribute VB_Creatable = False
  153. Attribute VB_PredeclaredId = True
  154. Attribute VB_Exposed = False
  155. Private Sub Command1_Click()
  156. Unload Me
  157. End Sub
  158. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  159.     Jolt32.FormMove Me
  160.     Label1.ForeColor = vbWhite
  161. End Sub
  162. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  163.     Label1.ForeColor = vbWhite
  164.     Frame1.Visible = False
  165. End Sub
  166. Private Sub Label1_Click()
  167.     Frame1.Visible = True
  168. End Sub
  169. Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  170.     Label1.ForeColor = vbWhite
  171. End Sub
  172. Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  173.     Label1.ForeColor = vbRed
  174. End Sub
  175. Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  176.     Label1.ForeColor = vbWhite
  177. End Sub
  178. Private Sub Label2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  179.     Label2.ForeColor = vbWhite
  180.     Label3.ForeColor = vbWhite
  181. End Sub
  182. Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  183.     Label2.ForeColor = vbYellow
  184.     Label3.ForeColor = vbWhite
  185. End Sub
  186. Private Sub Label2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  187.     Label2.ForeColor = vbYellow
  188. End Sub
  189. Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  190.     Label2.ForeColor = vbWhite
  191.     Label3.ForeColor = vbWhite
  192. End Sub
  193. Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  194.     Label3.ForeColor = vbYellow
  195.     Label2.ForeColor = vbWhite
  196. End Sub
  197. Private Sub Label3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  198.     Label3.ForeColor = vbYellow
  199. End Sub
  200.